home *** CD-ROM | disk | FTP | other *** search
/ The Utilities Experience / The Utilities Experience - Volume 1.iso / software / demos / a-d / amms / mbbatch / com / zconnect_upload < prev    next >
Encoding:
Text File  |  1995-08-16  |  5.8 KB  |  239 lines

  1. ;    ZConnect-Upload
  2. ;
  3. ;    Scriptfile zum Empfang neuer Nachrichten im ZConnect-Format
  4. ;
  5. ;    $VER: 1.00 / 16.08.1995
  6. ;
  7. ;       Beschreibung :
  8. ;    Direkter Empfang von neuen Daten im ZConnect-Format.
  9. ;    Die gesendeten Daten werden im Directory MBMSG:POINT/<Portname>/
  10. ;    temporaer gespeichert.
  11. ;    Existiert der Port IMPORT, so wird der Import durch einen Event
  12. ;    auf diesen Port umgelenkt.
  13. ;    
  14. ;
  15. ;    Das Script sollte so eingebunden werden, dass es ueber Flags
  16. ;    auf die folgende Befehle zugreifen kann !
  17. ;
  18. ;    ADD EVENT
  19. ;    CHECK FILE
  20. ;    DISK EXECUTE
  21. ;    DISK UPLOAD
  22. ;    ECHO
  23. ;    EXTERN
  24. ;    FASTNET GETFILE
  25. ;    GOTO
  26. ;    IF
  27. ;    ON ERROR
  28. ;    ZCONNECT GETFILE
  29. ;
  30. ;    Folgende Amiga-Dos-Befehle werden benutzt :
  31. ;
  32. ;    COPY
  33. ;    DELETE
  34. ;    LIST
  35. ;    SORT
  36. ;
  37. ;    Einrichtung eines Netcalls fuer eine Netzbox (Node) :
  38. ;    USERNAME : Name der anrufenden Node (z.B. TBA)
  39. ;    STRASSE  : @NETCALL
  40. ;    STADT     : Name der Domain (z.B. Fastnet.de)
  41. ;
  42. ;    Einrichtung eines LocalGates fuer die Einbindung eines anderen
  43. ;    lokalen Netzwerks :
  44. ;    USERNAME : Name der anrufenden Node (z.B. TBA)
  45. ;    VORNAME  : Gatename im Fastnet (z.B. Z-Netz)
  46. ;    STRASSE  : @LOCALGATE
  47. ;    STADT     : Name der Domain (z.B. Z-Netz.de)
  48. ;
  49. ;    Einrichtung eines Gates fuer die Einbindung eines anderen
  50. ;    globalen Netzwerks :
  51. ;    USERNAME : Name der anrufenden Node (z.B. TBA)
  52. ;    VORNAME  : Gatename im Fastnet (z.B. Z-Netz)
  53. ;    NACHNAME : Gatename im Zerberus-Netz (z.B. Fastnet)
  54. ;    STRASSE  : @GATE
  55. ;    STADT     : Name der Domain (z.B. Z-Netz.de)
  56. ;
  57. ;    Wenn hinter der anrufenden Node noch weitere Nodes haengen,
  58. ;    die ebenfalls das Netz empfangen, so muss die Datei
  59. ;    MBDAT:NODENAME.NODES eingerichtet werden
  60. ;    (NODENAME = Name der anrufenden Node).
  61. ;    In dieser Datei muessen die anrufende Node und die Nodes stehen,
  62. ;    die ueber sie zu erreichen sind.
  63. ;    Der Aufbau dieses Files ist im Kapitel Systemnachrichten/Nodeliste
  64. ;    der Fastnet-Format-Guide nachzulesen. Die Datei muss einer normalen
  65. ;    Nodelisten-Systemnachricht entsprechen, als Datum darf der Wert 0
  66. ;    angegeben werden, er entspricht immer dem akt. Tag.
  67. ;
  68. ;    Konstanten :
  69. ;
  70. ;DEBUG    ="ON"                    ; Rette empfangenes Pointfile
  71. DEBUGDIR  = "AMMS:NETDEBUG/"            ; Debug-Directory
  72. IMPORTPORT= "IMPORT"                ; Portname fuer Import
  73. TMPDIR    = "mbmsg:point/'{port}'/"        ; Dir fuer Tmp-Files
  74. IMPORTDIR = "mbnet:Import/"            ; Import-Directory
  75. IMFTABDIR = "mbnet:ImportFTab/"            ; Import-FTab-Directory
  76. RECFILE   = "caller.lha"            ; Name des empfangenen Files
  77. TBOXDIR   = "mbdat:"                ; Dir fuer Fastnet-Nodefile
  78. IMPORTFILE= "'IMPORTDIR''{NAME}'@ZC'{CALLNR}'.LHA" ; Importfile fuer anderen Port
  79. UPACKER   = "lha -P-1 e ""'TMPDIR''RECFILE'"" ""'TMPDIR'"" ""~(#?/#?|#?:#?)"""
  80.                         ; Entpacken
  81. LISTFILES = "'IMPORTDIR''{NAME}'@ZC#?"        ; Importfile
  82. LISTUPACK = "makedir *""'TMPDIR'%m*"" *n lha -P-1 e *""%s%s*"" *""'TMPDIR'%m/*"" *""~(#?/#?|#?:#?)*"""
  83.  
  84. ;
  85. ;    Domainname holen
  86. ;
  87. _on error ERROR                    ; Im Fehlerfall ...
  88. DOMAIN={CITY}                    ; Domainname holen
  89.  
  90. ;
  91. ;    Pruefe auf normalen Netcall
  92. ;
  93.  
  94. _if {STREET} != "@NETCALL" then _goto LOCALGATE
  95. FIL=16+128+256+512+32768
  96. OP_GET="/Type=0/Filter='FIL'/Cache=512/Header=96" ; Setze Optionen
  97. _goto START
  98.  
  99. ;
  100. ;    Pruefe auf LocalGate
  101. ;
  102. LOCALGATE:
  103. _if {STREET} != "@LOCALGATE" then _goto GATE
  104. FIL=16+128+256+512+32768+262144
  105. OP_GET="/Type=2/Filter='FIL'/Cache=512/Header=96" ; Setze Optionen
  106. _goto START
  107.  
  108. ;
  109. ;    Pruefe auf Gate
  110. ;
  111. GATE:
  112. _if {STREET} != "@GATE" then _goto USERPOINT
  113. FIL=16+128+256+512+32768
  114. OP_GET="/Type=1/Filter='FIL'/Cache=512/Header=96" ; Setze Optionen
  115. _goto START
  116.  
  117. ;
  118. ;    User-Point
  119. ;
  120. USERPOINT:
  121. FIL=16+128+256+512
  122. OP_GET="/Type=3/Filter='FIL'/Cache=128/Header=48" ; Setze Optionen
  123. DOMAIN="ZER"                    ; Domain ZER setzen
  124.  
  125. ;
  126. ;    Texte laden
  127. ;
  128. START:
  129. _gosub LOADTEXT                    ; Texte laden
  130.  
  131. ;
  132. ;    Filebrett-Konverter-Files einbinden
  133. ;
  134.  
  135. _check file "'IMFTABDIR''{NAME}'" NOIMPORTCVT
  136. OP_GET="'OP_GET'/FBoardlist=*""'IMFTABDIR''{NAME}'*"""
  137. NOIMPORTCVT:
  138.  
  139. ;
  140. ;    Starttext ausgeben
  141. ;
  142.  
  143. _echo STARTTEXT
  144.  
  145. ;
  146. ;    Upload-Abfrage
  147. ;
  148.  
  149. _menu MENUTEXT -
  150.  KEY_UPLOAD UPLOAD -
  151.  KEY_ABORT ABORT
  152.  
  153. ;
  154. ;    Loesche alte Files / Rename, wenn File immer noch geoeffnet
  155. ;
  156. UPLOAD:
  157. _if TMPDIR != "" then _extern/q delete "'TMPDIR'#?"
  158. _extern/q rename "'TMPDIR''RECFILE'" "'TMPDIR''RECFILE''{CALLNR}'"
  159.  
  160. ;
  161. ;    Upload der gepackten ZConnect-Daten
  162. ;
  163.  
  164. _echo UPLOADTEXT
  165. _on error ERROR_UPLOAD
  166. _disk upload "'TMPDIR''RECFILE'"
  167. _on error ERROR
  168.  
  169. ;
  170. ;    Bei Netcall optional zusaetzliche Nodes in Liste aufnehmen
  171. ;
  172.  
  173. _if {STREET} != "@NETCALL" then _goto NONODES    ; @Netcall ? Nein, verzw.
  174. _check file "'TBOXDIR''{NAME}'.NODES" NONODES    ; Wenn File nicht vorhanden, verzw.
  175. _fastnet getfile "'TBOXDIR''{NAME}'.NODES"    ; Nodes in Nodeliste aufnehmen
  176. NONODES:
  177.  
  178. ;
  179. ;    Wenn Debug-Modus aktiv, empfangenes Pointfile retten
  180. ;
  181.  
  182. _if DEBUG == "ON" then _extern/q copy "'TMPDIR''RECFILE'" "'DEBUGDIR''{NAME}''{CALLNR}'.LHA"
  183.  
  184. ;
  185. ;    Wenn Port IMPORT existiert, Import-Event starten
  186. ;
  187.  
  188. _check port "'IMPORTPORT'" IMPORT        ; Wenn kein Port, verzw.
  189. _echo PARTEXT
  190. _extern/q copy "'TMPDIR''RECFILE'" "'IMPORTFILE'"
  191. _add event/Background "'IMPORTPORT'" 0 3 mbbatch:zconnect_import "'{NAME}'"
  192. _goto END                    ; -> Ende
  193.  
  194. ;
  195. ;    Wenn kein Port, alle Messages, Files und PMs sofort importieren
  196. ;
  197. IMPORT:
  198. _echo/nolf UNPACKTEXT
  199. _extern/q 'UPACKER'
  200. _echo/nolf IMPORTTEXT
  201. _extern/q delete "'TMPDIR''RECFILE'"
  202. _extern/q list >"t:zc1'{port}'" "'TMPDIR'" lformat "zconnect getfile'OP_GET' *"%s%s*" 'DOMAIN'"
  203. _extern/q echo >"t:zc2'{port}'"
  204. _extern/q sort "t:zc1'{port}'" to "t:zc2'{port}'"
  205. _disk execute "t:zc2'{port}'"
  206. _extern/q delete "t:zc1'{port}'" "t:zc2'{port}'"
  207. _echo IMPORTENDTEXT
  208. _goto END                    ; -> Ende
  209.  
  210. ;
  211. ;       Wenn Fehler beim Upload ...
  212. ;
  213. ERROR_UPLOAD:
  214. _menu RETRYTEXT -
  215.  KEY_RETRY UPLOAD -
  216.  KEY_BREAK ABORT
  217.  
  218. ;
  219. ;       Ende
  220. ;
  221. ERROR:
  222. _echo ERRORTEXT
  223.  
  224. ABORT:
  225. END:
  226. _if TMPDIR != "" then _extern/q delete "'TMPDIR'#?" all ; Disk aufraeumen
  227. _eod
  228.  
  229. ;
  230. ; Unterroutine: Lade sprachspezifische Texte
  231. ;
  232. LOADTEXT:
  233. LANG={DEFLANGUAGE}
  234. _check file "mbbatch:com/'{ALANGUAGE}'/zconnect_upload.bat" GETTEXT
  235. LANG={ALANGUAGE}
  236. GETTEXT:
  237. _disk execute/keep "mbbatch:com/'LANG'/zconnect_upload.bat"
  238. _return
  239.